home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / khoaf / kh_setup.bas < prev    next >
BASIC Source File  |  1995-02-18  |  2KB  |  49 lines
  1. 10 CLS:COLOR 6:PRINT"ＫＨｏＡＦ　ＳＥＴＵＰ"
  2. 20 COLOR 4:PRINT"検索用データ KHOAF.IDK を作成または更新します。"
  3. 30 PRINT"フリコレ３以降に対応しています。"
  4. 40 COLOR 7:PRINT
  5. 50 PRINT"登録するフリコレをＱドライブに入れてください。"
  6. 60 INPUT"登録するフリコレのＮｏ.を入力してください　　",FCNO
  7. 70 INPUT"これでよろしいですか？(Y/N) ",A$
  8. 80 IF A$="Y" OR A$="y" THEN ELSE IF A$="N" OR A$="n" THEN 100 ELSE 70
  9. 90 GOSUB *MAIN
  10. 100 INPUT"さらに登録を続けますか？(Y/N) ",A$
  11. 110 IF A$="N" OR A$="n" THEN ELSE IF A$="Y" OR A$="y" THEN 40 ELSE 100
  12. 120 PRINT"ありがとうございました。"
  13. 130 END
  14. 140 '
  15. 150 *MAIN
  16. 160 OPEN "I",#1,"Q:\HELPER.IDX"
  17. 170 OPEN "A",#2,"KHOAF.IDK"
  18. 180 LINE INPUT#1,R$
  19. 190 IF LEFT$(R$,8)="KEYWORD:" THEN 180
  20. 200 *READ_INIT
  21. 210 PROGRAM$="":MAKE$="":KEYWORD$="":GGG$="":DOC$="":DIR$=""
  22. 220 COP$="":README$="":MANUAL$=""
  23. 230 *READ
  24. 240 IF EOF(1) THEN CLOSE:RETURN
  25. 250 LINE INPUT#1,R$
  26. 260 L=LEN(R$):IF L=0 THEN *CHECK
  27. 270 A$=LEFT$(R$,8)
  28. 280 IF A$="PROGRAM:" THEN PROGRAM$=RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  29. 290 IF A$="MAKE:   " THEN MAKE$   =RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  30. 300 IF A$="KEYWORD:" THEN KEYWORD$=RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  31. 310 IF A$="COPY:   " THEN COP$    =RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  32. 320 IF A$="README: " THEN README$ =RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  33. 330 IF A$="MANUAL: " THEN MANUAL$ =RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  34. 340 IF A$="DIR:    " THEN DIR$    =RIGHT$(R$,-(L-9)*(L>9)):GOTO *READ
  35. 350 GOTO *READ
  36. 360 *CHECK
  37. 370 IF README$<>"" THEN GGG$=README$ ELSE GGG$=DIR$
  38. 380 IF MANUAL$<>"" THEN DOC$=MANUAL$ ELSE DOC$=DIR$
  39. 390 IF COP$<>""    THEN DIR$=COP$
  40. 400 I=I+1
  41. 410 PRINT#2,PROGRAM$
  42. 420 PRINT#2,MAKE$
  43. 430 PRINT#2,KEYWORD$
  44. 440 PRINT#2,GGG$
  45. 450 PRINT#2,DOC$
  46. 460 PRINT#2,DIR$
  47. 470 PRINT#2,FCNO
  48. 480 GOTO *READ_INIT
  49.